﻿Imports kplusEntity.KPLUS.Entity
Imports System.Data.OracleClient
Imports kplusData.KPLUS.Data

Namespace KPLUS.Logic
    Public Class LTipoExposicion

        Dim objDTipoExposicion As New DTipoExposicion

        Public Function fListarTipoExposicion(ByVal strConexion As String, ByVal strPeriodoMes As String, ByVal intNumVersion As Integer) As List(Of ETipoExposicion)
            Dim lstETipoExposicion As New List(Of ETipoExposicion)
            Using con As New OracleConnection(strConexion)
                con.Open()
                lstETipoExposicion = objDTipoExposicion.fListarTipoExposicion(con, strPeriodoMes, intNumVersion)
            End Using
            Return (lstETipoExposicion)
        End Function
        Public Function fObtenerTipoExposicion(ByVal strConexion As String, ByVal strPeriodoMes As String, ByVal intNumVersion As Integer) As EBaseParametro
            Dim objEBaseParametro As New EBaseParametro
            Using con As New OracleConnection(strConexion)
                con.Open()
                objEBaseParametro = objDTipoExposicion.fObtenerTipoExposicion(con, strPeriodoMes, intNumVersion)
            End Using
            Return (objEBaseParametro)
        End Function
    End Class
End Namespace

